home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
demdat.arc
/
PREVIEW.SBP
< prev
next >
Wrap
Text File
|
1990-06-01
|
6KB
|
264 lines
SBP
╜ PREVIEW
╜ Superbase 4 Windows
╜ Trial Pack Preview Program
╜ Last updated May 16, 90
Γ e
┤ £"prev"
wstart
swait: ╜ routine to wait for next page
click$ ""
╧ ▀ Ñ
¥a$
ía$ (27) p wsend
a$ =(a$)
ía$ "a" pclick$ "y"
íclick$ "y" p wswait
├
scroll: ╜ routine to see 3 records
¢i% 1 q3
╔ £ ▒
╬: vswait
▒i%
├
start: ╜ Intro as far as session selection
vswait
vga: ╜ Select if VGA
í σsys(7)
400 pvga$ "n" ^vga$ "y"
£3: vswait
£4: vswait
£5: wfwait
fret: ╜ Session select
╩ ╦"Make another preview selection"
┤ £"prev0"
fwait: ╜ Wait here
╧ ▀ Ñ
¥a$:a$ =(a$)
ía$ "" p wfwait
ía$ "a" p wsess1
ía$ "b" p wsess2a
ía$ "c" p wsess2b
ía$ "d" p wsess3
send: ╜ End
å £: ╩ ƒ"": å t: Γ │: ╩ f │
┬"Please refer to the Trial Pack Booklet for instructions on:","how to proceed with the hands-on sessions",100,a%
Æ
sess1: ╜ The primary work surface
ívga$ "y" p ┤ £"prev1a" ^ ┤ £"prev1ae"
╩ ╦"Browsing through an address file in Lastname sequence"
vswait: ╜ browsing in Lastname sequence
£2: ╧ ¢1
¢i% 1 q15: ╔ ▒: ╬: ▒i%
╧ ¢1
¢i% 1 q15: ╔ g: ╬: ▒i%
╧ ¢1
╩ ╦"Browsing through an address file in City sequence"
£3: vswait : ╜ or in city sequence
úCity
╔ `
£2: ╧ ¢1
¢i% 1 q15: ╔ ▒: ╬: ▒i%
╧ ¢1
¢i% 1 q15: ╔ g: ╬: ▒i%
╧ ¢1
úLastname
ívga$ "n" p wfbrowse
╩ ╦"Viewing related image and text files"
£4: vswait
╔ Ñ"Arnauld"
£2: ╧ ¢1
£ ╚5: ╧ ¢2
fbrowse:
╩ ╦"Browsing with a table form"
┤ £"prev1b": vswait
╔ `
£2
skey$ Lastname
¢i% 1 q5
╔ Ñskey$
¢j% 1 q10
╔ ▒
íj% 1 pskey$ Lastname
═ £ "j%
▒j%
╬
▒i%
╧ ¢2
¢i% 1 q5
¢j% 1 q10
╔ g
▒j%
¢J% 1 q10
═ £ "j%
╔ ▒
▒j%
╬
╔ g
▒i%
╧ ¢2
╩ ╦"Selecting address records where country like USA"
£3: vswait
╔ ╨Country.ADDRESS "usa"
ü £
£2
╔ `
¢J% 1 q10
═ £ "j%
╔ ▒
▒j%
╬: ╧ ¢4
╔ ╨
╩ ╦""
£4: vswait
wfret
sess2a: ╜ Dealer Map
╩ ╦"The Dealer Map: a simple form-based application"
┤ £"prev2a": vswait
╩ ╦"Click on any area or on the Dealers pushbutton"
£2: click$ ""
╪click$ "y"
╧ ▀
╧ ¢3
┘
╩ ╦""
£3: vswait
╩ ╦"Viewing Dealers for the selected area"
£4:click$ ""
╪click$ "y"
╧ ▀
┘
wfret
sess2b: ╜ Trading System
╩ ╦"The Trading System: a programmed application"
┤ £"prev2b": vswait
£2: vswait: ╜ Currencies page
£3: vswait
┤ £"prev2c": vswait: ╜ Countries page
£2: vswait
┤ £"prev2d": vswait: vscroll: ╜ Clients page 1
£2: vswait
┤ £"prev2e": vswait: ╜ Stocks pages 1 and 2
¢i% 1 q2
£2: vswait
╔ £ ▒
£1: vswait
▒i%
£2: vswait
£3: vswait
┤ £"prev2f": vswait: vscroll: ╜ Trans
£2: vswait
┤ £"prev2g": vswait: vscroll: ╜ Clients page 3
£2: vswait
┤ £"prev2h":
╔ £ Ñ"Charter": ╬
vswait: vscroll: ╜ Stocks page 3
£2: vswait
╩ f e: ╜ Contract notes
docf$ "previnvs":letf$ "prevlet"
í J("previnvs.sbf") p wfmerge
╔Stock_Key.TRANS,Customer_Ref.TRANS,Transaction ref,Trans_Type,Trans_Desc,Trans_Date,Settlement_Date, (Quantity.TRANS,6,0) U"QTY", (Stock_Price.TRANS,6,2) U"PR",Currency.TRANS,USD Xrate.TRANS,
( (USD Value.TRANS),6,2) U"USDV",(Comm_Value) U"Com", ( (USD Value.TRANS Comm_Value),6,2) U"TV",&24(Client.CLIENTS) U"Client",Company.CLIENTS,Street.CLIENTS,Address.CLIENTS,City.CLIENTS,
State.CLIENTS,Zip_Code.CLIENTS,Country.CLIENTS,Company Name.STOCKS,Stock_Type,Exchange
╨Customer_Ref.TRANS Customer_Ref.CLIENTS Stock_Key.TRANS Stock_Key.STOCKS Invoice_Sent_yn.TRANS "n"
q Ödocf$
Æ ╔
fmerge:
┤ Ödocf$
¿ oletf$: ╔ `
╪ O B(docf$)
{ o ¡
╧ ¢2
╔ ▒
┘
ívga$ "y" p ┤ £"prev2j" ^ ┤ £"prev2je"
vswait
£2: vswait: vscroll: ╜ statements
£3: vswait
freport:
▓"z-99999.00": ╩ f e
hd1$ "Client Trading Balances at " ( Q,"mmm dd,yy")
hd12$ "Ref: STKRBE"
┴USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
} ┴
{@52;" ========= ========== ==========="
{@1;"Totals for Client Trading Balance Report";@54;&6.2 lUSD Value.TRANS;@67;&11 lComm_Value.TRANS;@79;&6.2 lTotal_Due.TRANS
{@52;" ========= ========== ==========="
Æ ┴
ƒ
{@1;hd1$;@66;hd12$
{
{@1;"Client ref Name Location Telephone "
{@1;"Date b/s Ref Quantity Curr units Price US$ Value Commission Total Due"
{@1;"--------- --- ------ -------- ---------- --------- --------- ---------- -----------"
Æ ƒ
₧Customer_Ref.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
Ç ₧Customer_Ref.TRANS
{
{@1;&8Customer_Ref.TRANS;@10;&24Client.CLIENTS;@35;&24Location.CLIENTS;@60;&3Dialcode.COUNTRY;@64;&16Telephone.CLIENTS
Æ ₧
} ₧Customer_Ref.TRANS
{@54;" --------- ---------- ------------"
{@1;"Totals for ";&15 ₧;@55;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@80;&12 lTotal_Due.TRANS
{@55;"--------- ---------- ------------"
Æ ₧
╔@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
@32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
╨Currency.TRANS Currency.CURRENCY Customer_Ref.CLIENTS Customer_Ref.TRANS Name.COUNTRY Country.CLIENTS
╡Customer_Ref.TRANS,Transaction ref.TRANS
╧ ¢2
wfret
sess3: ╜ Form Designer
┤ £"prev3a": vswait
¢i% 2 q10
£i%: vswait
▒i%
┤ £"prev3b": vswait
¢i% 2 q6
£i%: vswait
▒i%
┤ £"prev3c": vswait
£2: vswait
┤ £"prev3d": vswait
£2: vswait
£3: vswait
wfreport